﻿Imports BUS

Public Class UserControlXemDanhSachNhanVien

    Private Sub UserControlXemDanhSachNhanVien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim nvBus As New NhanVienBUS()
        Dim dt As New DataTable()
        dt = nvBus.LayDanhSachNhanVien()
        For i As Integer = 0 To dt.Rows.Count - 1
            Dim lv As ListViewItem = lvwDanhSach.Items.Add((i + 1).ToString())
            lv.SubItems.Add(dt.Rows(i)("IDNhanVien"))
            lv.SubItems.Add(dt.Rows(i)("TenNhanVien"))
            lv.SubItems.Add(dt.Rows(i)("NgaySinh"))
            lv.SubItems.Add(dt.Rows(i)("DienThoai"))
            lv.SubItems.Add(dt.Rows(i)("DiaChi"))
            lv.SubItems.Add(dt.Rows(i)("TenChucVu"))

        Next
    End Sub
End Class
